object SoundDlg: TSoundDlg Left = 202 Top = 193 ActiveControl = OKBtn BorderStyle = bsDialog Caption = 'Sounds' ClientHeight = 331 ClientWidth = 564 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Position = poScreenCenter ShowHint = True OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object OKBtn: TBitBtn Left = 320 Top = 278 Width = 77 Height = 27 Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = OKBtnClick Kind = bkOK Margin = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 402 Top = 278 Width = 77 Height = 27 Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 Kind = bkCancel Margin = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 484 Top = 278 Width = 77 Height = 27 Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 Kind = bkHelp Margin = 2 Spacing = -1 IsControl = True end object HelpPanel: TPanel Left = 0 Top = 311 Width = 564 Height = 20 Align = alBottom Alignment = taLeftJustify BevelOuter = bvLowered Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object TabbedNotebook1: TTabbedNotebook Left = 4 Top = 0 Width = 557 Height = 273 TabsPerRow = 6 TabFont.Color = clBtnText TabFont.Height = -11 TabFont.Name = 'MS Sans Serif' TabFont.Style = [] TabOrder = 4 object TTabPage Left = 4 Top = 24 Caption = 'General' object Label54: TLabel Left = 94 Top = 106 Width = 59 Height = 13 Alignment = taRightJustify Caption = 'Beep Sound' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SpeedButton1: TSpeedButton Left = 392 Top = 104 Width = 21 Height = 21 Hint = 'Select sound|' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555555555555555500000000000555550000000000 05555008888888888055500B7B7B7B7B7055507088888888805550F0B7B7B7B7 B055507088888888880550B07B7B7B7B7B05507708888888880550FB07B7B7B7 B705507708888888888050BF0B7B7B7B7B70507770000888888050FBF00007B7 B7B0507777777000000550BFBFBFB0000005507777777777055550FBFBFBFBFB 0555507777777777055550BFBFBFBFBF0555507777700000555550FBFBF00000 5555550000055555555555000005555555555555555555555555555555555555 5555555555555555555555555555555555555555555555555555000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = SpeedButton1Click end object SpeedButton5: TSpeedButton Left = 416 Top = 104 Width = 21 Height = 21 Hint = 'Test sound|' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333FFF3333F333333300033339333333337773F33733333330008033 933333333737F7F37333333307078733333933337337373F3337333077088803 33933337F37F337F3373333077088803393333F7337FF37F3733300777008803 9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873 99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803 93333773F377337F73F333308807880339333337F37F337F373F333088077803 339333373F73F37333733333087777333339333373F7F7F33F37333330807033 933333333737F73373F3333333000333393333333377733337330000} NumGlyphs = 2 OnClick = SpeedButton5Click end object Label55: TLabel Left = 85 Top = 130 Width = 68 Height = 13 Alignment = taRightJustify Caption = 'Startup Sound' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SpeedButton2: TSpeedButton Left = 392 Top = 128 Width = 21 Height = 21 Hint = 'Select sound|' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555555555555555500000000000555550000000000 05555008888888888055500B7B7B7B7B7055507088888888805550F0B7B7B7B7 B055507088888888880550B07B7B7B7B7B05507708888888880550FB07B7B7B7 B705507708888888888050BF0B7B7B7B7B70507770000888888050FBF00007B7 B7B0507777777000000550BFBFBFB0000005507777777777055550FBFBFBFBFB 0555507777777777055550BFBFBFBFBF0555507777700000555550FBFBF00000 5555550000055555555555000005555555555555555555555555555555555555 5555555555555555555555555555555555555555555555555555000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = SpeedButton2Click end object SpeedButton6: TSpeedButton Left = 416 Top = 128 Width = 21 Height = 21 Hint = 'Test sound|' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333FFF3333F333333300033339333333337773F33733333330008033 933333333737F7F37333333307078733333933337337373F3337333077088803 33933337F37F337F3373333077088803393333F7337FF37F3733300777008803 9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873 99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803 93333773F377337F73F333308807880339333337F37F337F373F333088077803 339333373F73F37333733333087777333339333373F7F7F33F37333330807033 933333333737F73373F3333333000333393333333377733337330000} NumGlyphs = 2 OnClick = SpeedButton6Click end object Label1: TLabel Left = 79 Top = 154 Width = 74 Height = 13 Alignment = taRightJustify Caption = 'Connect Sound' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SpeedButton3: TSpeedButton Left = 392 Top = 152 Width = 21 Height = 21 Hint = 'Select sound|' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555555555555555500000000000555550000000000 05555008888888888055500B7B7B7B7B7055507088888888805550F0B7B7B7B7 B055507088888888880550B07B7B7B7B7B05507708888888880550FB07B7B7B7 B705507708888888888050BF0B7B7B7B7B70507770000888888050FBF00007B7 B7B0507777777000000550BFBFBFB0000005507777777777055550FBFBFBFBFB 0555507777777777055550BFBFBFBFBF0555507777700000555550FBFBF00000 5555550000055555555555000005555555555555555555555555555555555555 5555555555555555555555555555555555555555555555555555000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = SpeedButton3Click end object SpeedButton7: TSpeedButton Left = 416 Top = 152 Width = 21 Height = 21 Hint = 'Test sound|' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333FFF3333F333333300033339333333337773F33733333330008033 933333333737F7F37333333307078733333933337337373F3337333077088803 33933337F37F337F3373333077088803393333F7337FF37F3733300777008803 9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873 99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803 93333773F377337F73F333308807880339333337F37F337F373F333088077803 339333373F73F37333733333087777333339333373F7F7F33F37333330807033 933333333737F73373F3333333000333393333333377733337330000} NumGlyphs = 2 OnClick = SpeedButton7Click end object Label2: TLabel Left = 65 Top = 178 Width = 88 Height = 13 Alignment = taRightJustify Caption = 'Disconnect Sound' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SpeedButton4: TSpeedButton Left = 392 Top = 176 Width = 21 Height = 21 Hint = 'Select sound|' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555555555555555500000000000555550000000000 05555008888888888055500B7B7B7B7B7055507088888888805550F0B7B7B7B7 B055507088888888880550B07B7B7B7B7B05507708888888880550FB07B7B7B7 B705507708888888888050BF0B7B7B7B7B70507770000888888050FBF00007B7 B7B0507777777000000550BFBFBFB0000005507777777777055550FBFBFBFBFB 0555507777777777055550BFBFBFBFBF0555507777700000555550FBFBF00000 5555550000055555555555000005555555555555555555555555555555555555 5555555555555555555555555555555555555555555555555555000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = SpeedButton4Click end object SpeedButton8: TSpeedButton Left = 416 Top = 176 Width = 21 Height = 21 Hint = 'Test sound|' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333FFF3333F333333300033339333333337773F33733333330008033 933333333737F7F37333333307078733333933337337373F3337333077088803 33933337F37F337F3373333077088803393333F7337FF37F3733300777008803 9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873 99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803 93333773F377337F73F333308807880339333337F37F337F373F333088077803 339333373F73F37333733333087777333339333373F7F7F33F37333330807033 933333333737F73373F3333333000333393333333377733337330000} NumGlyphs = 2 OnClick = SpeedButton8Click end object Image1: TImage Left = 128 Top = 8 Width = 32 Height = 32 AutoSize = True end object Label3: TLabel Left = 168 Top = 16 Width = 329 Height = 13 Caption = 'Select .WAV files to be played for various system events' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object EnableSound: TCheckBox Left = 80 Top = 56 Width = 100 Height = 17 Hint = '|Disable or enable ALL sound in zMUD' Alignment = taLeftJustify Caption = 'Enable Sounds' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object BeepSound: TEdit Left = 168 Top = 104 Width = 217 Height = 21 Hint = '|Sound to be played by #BEEP command' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object StartupSound: TEdit Left = 168 Top = 128 Width = 217 Height = 21 Hint = '|Sound to be played when zMUD is started' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end object ConnectSound: TEdit Left = 168 Top = 152 Width = 217 Height = 21 Hint = '|Sound to be played when connected to a MUD' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object DisconnectSound: TEdit Left = 168 Top = 176 Width = 217 Height = 21 Hint = '|Sound to be played when disconnected from the MUD' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 end end object TTabPage Left = 4 Top = 24 Caption = 'MSP' object Image2: TImage Left = 184 Top = 8 Width = 32 Height = 32 AutoSize = True end object Label4: TLabel Left = 224 Top = 16 Width = 286 Height = 13 Caption = 'The MUD Sound Protocol (MSP) is used by to trigger sounds' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 236 Top = 30 Width = 297 Height = 13 Caption = 'Select MSP sounds in the list on the left to enable/disable/map' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label7: TLabel Left = 8 Top = 8 Width = 73 Height = 13 Caption = 'MSP Sounds' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Bevel1: TBevel Left = 168 Top = 8 Width = 9 Height = 233 Shape = bsLeftLine end object AliasText: TLabel Left = 175 Top = 98 Width = 42 Height = 13 Alignment = taRightJustify Caption = 'Filename' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label6: TLabel Left = 236 Top = 44 Width = 194 Height = 13 Caption = 'Sounds in red could not be found on disk' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SoundName: TLabel Left = 224 Top = 78 Width = 305 Height = 13 AutoSize = False Caption = 'filename' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SpeedButton9: TSpeedButton Left = 484 Top = 96 Width = 21 Height = 21 Hint = 'Select sound|' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555555555555555500000000000555550000000000 05555008888888888055500B7B7B7B7B7055507088888888805550F0B7B7B7B7 B055507088888888880550B07B7B7B7B7B05507708888888880550FB07B7B7B7 B705507708888888888050BF0B7B7B7B7B70507770000888888050FBF00007B7 B7B0507777777000000550BFBFBFB0000005507777777777055550FBFBFBFBFB 0555507777777777055550BFBFBFBFBF0555507777700000555550FBFBF00000 5555550000055555555555000005555555555555555555555555555555555555 5555555555555555555555555555555555555555555555555555000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = SpeedButton9Click end object SpeedButton10: TSpeedButton Left = 508 Top = 96 Width = 21 Height = 21 Hint = 'Test sound|' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333FFF3333F333333300033339333333337773F33733333330008033 933333333737F7F37333333307078733333933337337373F3337333077088803 33933337F37F337F3373333077088803393333F7337FF37F3733300777008803 9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873 99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803 93333773F377337F73F333308807880339333337F37F337F373F333088077803 339333373F73F37333733333087777333339333373F7F7F33F37333330807033 933333333737F73373F3333333000333393333333377733337330000} NumGlyphs = 2 OnClick = SpeedButton10Click end object Label8: TLabel Left = 184 Top = 78 Width = 33 Height = 13 Alignment = taRightJustify Caption = 'Trigger' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object sClass: TLabel Left = 224 Top = 64 Width = 305 Height = 13 Caption = 'sClass' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label9: TLabel Left = 192 Top = 64 Width = 25 Height = 13 Alignment = taRightJustify Caption = 'Class' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object SoundList: TListBox Left = 0 Top = 120 Width = 185 Height = 81 ExtendedSelect = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False Sorted = True TabOrder = 0 Visible = False end object Enable: TCheckBox Left = 224 Top = 126 Width = 137 Height = 17 Hint = '|Enable or disable the selected MSP sound' Caption = 'Enable this sound' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object SoundFile: TEdit Left = 224 Top = 96 Width = 255 Height = 21 Hint = '|Actual sound file to be played when this MSP trigger is receive' + 'd' AutoSize = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end object GroupBox1: TGroupBox Left = 224 Top = 152 Width = 305 Height = 89 Caption = ' General MSP Options ' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 object EnableMSP: TCheckBox Left = 21 Top = 32 Width = 172 Height = 17 Hint = '|Enable or Disable MUD Sound Protocol (MSP)' Caption = 'Enable MUD Sound Protocol' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object EchoMSP: TCheckBox Left = 21 Top = 48 Width = 172 Height = 17 Hint = '|Echo the MSP triggers to the screen' Caption = 'Echo MSP triggers' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end end object SoundClass: TComboBox Left = 8 Top = 24 Width = 154 Height = 21 Hint = '|Select class of sounds to display in list' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 4 OnChange = SoundClassChange OnDropDown = SoundClassDropDown OnExit = SoundClassExit end object SoundGrid: TDrawGrid Left = 8 Top = 48 Width = 153 Height = 193 Hint = '|Double click sound to toggle enable/disable' ColCount = 2 DefaultRowHeight = 15 DefaultDrawing = False FixedCols = 0 RowCount = 20 FixedRows = 0 Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goRowSelect, goThumbTracking] ParentFont = False ScrollBars = ssVertical TabOrder = 5 OnClick = SoundGridClick OnDblClick = SoundGridDblClick OnDrawCell = SoundGridDrawCell ColWidths = ( 14 135) end object BitBtn1: TBitBtn Left = 356 Top = 120 Width = 85 Height = 27 Caption = 'Enable Class' Default = True Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 OnClick = EnableClassBtnClick NumGlyphs = 2 Spacing = -1 IsControl = True end object BitBtn2: TBitBtn Left = 444 Top = 120 Width = 85 Height = 27 Caption = 'Disable Class' Default = True Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 7 OnClick = DisableClassBtnClick NumGlyphs = 2 Spacing = -1 IsControl = True end object DelBtn: TBitBtn Left = 178 Top = 214 Width = 27 Height = 27 Hint = 'Delete sound trigger' TabOrder = 8 OnClick = DelBtnClick NumGlyphs = 2 Spacing = -1 IsControl = True end end end object OpenWav: TOpenDialog DefaultExt = 'wav' FileEditStyle = fsEdit Filter = 'Wav Files|*.wav|MIDI Files|*.mid|All Files|*.*' InitialDir = '\windows\media' Top = 280 end end